﻿Imports System.Data
Imports System.Data.SqlClient
Imports BEGestionProyecto
Imports DLGestionProyecto

Public Class BLGPProyectoActividad
#Region "CONSULTAR"
    '*********************************************************
    'Funcion que Lista los Proyectos
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    '*********************************************************
    Public Function fuBLBuscarProyectoActividadx(ByVal piPrycodProyectoActividad As Int32) As DataTable
        Try
            Dim lDt As New DataTable
            Dim lBL As New DLGestionProyecto.DLGPProyectoActividad
            lDt = lBL.fuDLBuscarProyectoActividadx(piPrycodProyectoActividad)
            Return lDt
        Catch ex As Exception
            Throw New ArgumentException("Origen : fuBLBuscarProyectoActividadx " & vbCrLf & _
                                        "Descripcion : " & ex.Message)
        End Try
    End Function
    '*********************************************************
    'Funcion que Lista los Proyectos
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    '*********************************************************
    Public Function fuBLListarProyectoActividad() As DataTable
        Try
            Dim lDt As New DataTable
            Dim lBL As New DLGestionProyecto.DLGPProyectoActividad
            lDt = lBL.fuDLListarProyectoActividad()
            Return lDt
        Catch ex As Exception
            Return Nothing
            Throw New ArgumentException("Origen : fuBLListarProyectoActividad " & vbCrLf & _
                                        "Descripcion : " & ex.Message)
        End Try
    End Function
    Public Function fuBLListarActividadesPendientesxPersona(ByVal phorcodPersona As String) As DataTable
        Try
            Dim lDt As New DataTable
            Dim lBL As New DLGestionProyecto.DLGPProyectoActividad
            lDt = lBL.fuDLListarActividadesPendientesxPersona(phorcodPersona)
            Return lDt
        Catch ex As Exception
            Throw New ArgumentException("Origen : fuBLListarActividadesPendientesxPersona " & vbCrLf & _
                                        "Descripcion : " & ex.Message)
        End Try
    End Function

    Public Function fuBLListarProyectoActividadxPersona(ByVal psPaccodProyecto As String, ByVal psPapcodPersona As String) As DataTable
        Try
            Dim lDt As New DataTable
            Dim lBL As New DLGestionProyecto.DLGPProyectoActividad
            lDt = lBL.fuDLListarProyectoActividadxPersona(psPaccodProyecto, psPapcodPersona)
            Return lDt
        Catch ex As Exception
            Throw New ArgumentException("Origen : fuDLListarProyectoActividadxPersona " & vbCrLf & _
                             "Descripcion : " & ex.Message)
        End Try

    End Function


#End Region
#Region "ACTUALIZAR"
    '*********************************************************
    'Funcion que Agrega Proyectos
    'fecha crea         fecha modifica         autor
    '01/02/2012         01/02/2012              JKP
    '*********************************************************
    Public Function fuBLInsertarProyecto(ByVal pBE As BEGPProyecto) As Boolean
        Try

            Dim lBL As New DLGestionProyecto.DLGPProyecto
            If lBL.fuDLInsertarProyecto(pBE) Then
                Return True
            End If
        Catch ex As Exception
            Return False
            Throw New ArgumentException("Origen : fuBLInsertarProyecto " & vbCrLf & _
                                        "Descripcion : " & ex.Message)

        End Try
    End Function


#End Region
End Class
